home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / stylprgb / vb4sampl.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-05  |  1.0 KB  |  37 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Style Progress Bar's VB4 sample"
  4.    ClientHeight    =   4332
  5.    ClientLeft      =   912
  6.    ClientTop       =   1416
  7.    ClientWidth     =   5772
  8.    Height          =   4716
  9.    Left            =   864
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4332
  12.    ScaleWidth      =   5772
  13.    Top             =   1080
  14.    Width           =   5868
  15.    Begin VB.Timer Timer1 
  16.       Interval        =   500
  17.       Left            =   5400
  18.       Top             =   120
  19.    End
  20.    Begin STYLEPROGRESSBARLibCtl.SPBar SPBar1 
  21.       Height          =   480
  22.       Left            =   3240
  23.       OleObjectBlob   =   "vb4sampl.frx":0000
  24.       TabIndex        =   0
  25.       Top             =   3720
  26.       Width           =   2400
  27.    End
  28. Attribute VB_Name = "Form1"
  29. Attribute VB_Creatable = False
  30. Attribute VB_Exposed = False
  31. Private Sub Timer1_Timer()
  32.     If SPBar1.Value >= SPBar1.Max Then
  33.         SPBar1.Value = SPBar1.Min
  34.     End If
  35.     SPBar1.Value = SPBar1.Value + 10
  36. End Sub
  37.